object fStateNames: TfStateNames Left = 257 Top = 199 BorderStyle = bsDialog Caption = 'State names' ClientHeight = 193 ClientWidth = 381 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object lvStates: TListView Left = 5 Top = 6 Width = 371 Height = 150 ColumnClick = False OnDblClick = lvStatesDblClick Columns = < item Caption = 'State' Width = 120 end item Caption = 'Default name' Width = 140 end item Alignment = taRightJustify Caption = 'Index' Width = 70 end> ReadOnly = True RowSelect = True OnChange = lvStatesChange TabOrder = 0 ViewStyle = vsReport end object bOK: TButton Left = 221 Top = 162 Width = 75 Height = 25 Caption = '&OK' Default = True ModalResult = 1 ParentShowHint = False ShowHint = False TabOrder = 1 end object bCancel: TButton Left = 301 Top = 162 Width = 75 Height = 25 Cancel = True Caption = '&Cancel' ModalResult = 2 ParentShowHint = False ShowHint = False TabOrder = 2 end object bChange: TButton Left = 5 Top = 162 Width = 75 Height = 25 Hint = 'Change index of selected state' Caption = 'C&hange' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = bChangeClick end object bClear: TButton Left = 85 Top = 162 Width = 75 Height = 25 Hint = 'Change index of selected state to "-1"' Caption = 'Cl&ear' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = bClearClick end end